home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 231 / 231.d81 / fools gold (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  92 lines
  1. 1 poke55,255:poke56,62:v=53248:pokev+21,.
  2. 2 poke53280,.:poke53281,.:print"[147]";
  3. 3 a=a+1:dq=peek(186)
  4. 4 ifa=1thenload"fools.spr",dq,1
  5. 15 po=peek(648)*256+1016:di=6:dimg$(36)
  6. 16 d$(1)="n":d$(2)="s":d$(3)="e"
  7. 17 d$(4)="[206][207][210][212][200]":d$(5)="[211][207][213][212][200]":d$(6)="[197][193][211][212]"
  8. 18 mk=1:k$(1)="[215]":k$(2)="[196]":k$(3)="[210]":goto100
  9. 19 rem   put chest with gold at cx,cy
  10. 20 pokev+21,7
  11. 22 pokepo,255:pokev+39,14:pokev,cx:pokev+1,cy:rem            bottom of chest
  12. 24 pokepo+1,254:pokev+40,14:pokev+2,cx-24:pokev+3,cy-8:rem   top of chest
  13. 26 pokepo+2,253:pokev+41,7:pokev+4,cx:pokev+5,cy: rem        gold in chest
  14. 28 return
  15. 30 print"[164]";:fora=1to15
  16. 31 pokev+41,fg:fg=fg+1:iffg=9thenfg=7
  17. 32 geta$:ifa$=""then31
  18. 34 ifa$=chr$(32)then40
  19. 35 ifa$=chr$(13)thenprint"[157] ":goto44
  20. 36 ifa$=chr$(20)anda>1thenprint"[157][157]  [157][157][164]";:a=a-1:goto32
  21. 37 ifa$>="a"anda$<="z"thena$=chr$(asc(a$)+128)
  22. 38 gosub6000:ifa$<"[193]"ora$>"[218]"then32
  23. 40 print"[157]"a$"[164]";::g$(a)=a$
  24. 42 next:print"[157] "
  25. 44 i$="":forb=1toa-1:i$=i$+g$(b):next
  26. 46 return
  27. 100 pokev+21,.:print"[147]      [196]ispute?'s [199]azelle [208]resents:":fg=7
  28. 102 print"               [198]ools [199]old"
  29. 103 print"         [193]n [193]dventure-[212]ype [199]ame"
  30. 105 print"[160]            [160]by [196]an [212]obias"
  31. 106 print"      [195]-64 version by [205]ike [205]aynard"
  32. 110 print"[129][212]he object is to get out of the cave"
  33. 120 print"with the treasure."
  34. 130 print"[154][213]se normal adventure game commands."
  35. 140 print"[159][201]f you don't know what normal adventure"
  36. 150 print"game commands are, feel free to buy our"
  37. 160 print"4500 page book, "chr$(34)"[212][200][197] [201][206][195][207][205][208][204][197][212][197] [194][207][207][203][160][207][198]"
  38. 170 print"[193][196][214][197][206][212][213][210][197] [199][193][205][197] [195][207][205][205][193][206][196][211]"chr$(34)" for the"
  39. 175 print"unbelievable low price of $499.95 ..."
  40. 176 print"order yours today!"
  41. 180 print"[153]        [208]ress [210][197][212][213][210][206] to continue.":poke198,.:t=-1
  42. 190 geta$:ifa$<>chr$(13)then190
  43. 200 pokev+21,.:print"[147][129][217]ou are in a cave. [217]ou can see light"
  44. 210 print"to the west."
  45. 220 print"[154][214]isible objects:[159]";:ifnot(t)thenprint" [206]othing"
  46. 230 if(t)thenprint:print"                 [212]reasure":cx=180:cy=83:gosub20
  47. 240 print"[154][207]pen [208]assages: [159][215]est"
  48. 260 print"[129]-->[158]";:gosub30
  49. 270 j$=""
  50. 300 if(i$="[204][207][207][203]")then on int(rnd(0)*2)+1 goto 3000,3020
  51. 310 if(i$="[199][197][212] [212][210][197][193][211][213][210][197]")or(i$="[212][193][203][197] [212][210][197][193][211][213][210][197]")and(t)thent=.:goto200
  52. 311 if(i$="[199][197][212] [199][207][204][196]")or(i$="[212][193][203][197] [199][207][204][196]")and(t)thent=.:goto200
  53. 312 if(i$="[201][206][214][197][206][212][207][210][217]")or(i$="[201][206][214]")or(i$="[201]")thengosub400:goto200
  54. 315 if(i$="[196][210][207][208] [212][210][197][193][211][213][210][197]")and(not(t))thent=not(t):mk=1:goto200
  55. 316 if(i$="[196][210][207][208] [199][207][204][196]")and(not(t))thent=not(t):mk=1:goto200
  56. 320 ifi$="[215]"ori$="[215][197][211][212]"ori$="[199][207] [215]"ori$="[199][207] [215][197][211][212]"then500
  57. 330 fora=1todi:ifi$=d$(a)thenprint"[217]ou can't go that direction."
  58. 335 ifi$=d$(a)thenfora=1to1000:next:goto200
  59. 340 next
  60. 350 if(i$<>"[209][213][201][212]")and(i$<>"[197][216][201][212]")and(i$<>"[211][212][207][208]")then370
  61. 360 print"[217]ou have just [209][213][201][212] the game."
  62. 365 print"([201] don't blame you; few mortals can"
  63. 366 print"manage to solve it.)":goto2000
  64. 370 print"[201] don't understand.":fora=1to1000:next:goto200
  65. 400 if(t)thenprint"[217]ou are carrying [206][207][212][200][201][206][199].":goto420
  66. 410 print"[217]ou are carrying [212][210][197][193][211][213][210][197]."
  67. 420 fora=1to2000:next:return
  68. 500 print"[159][217]ou have left the cave."
  69. 505 if(t)then520                              
  70. 510 print"[158][217]ou have ten billion dollars in gold!"
  71. 512 print"[198]inal [211]core: [153]1000 out of [153]1000."
  72. 515 goto2000
  73. 520 print"[158][200]owever, you forgot the treasure."
  74. 530 print"[198]inal [211]core: [153]500 out of [153]1000.":print:print:print
  75. 2000 print"[154][215]ould you like to play again?  ([217][154]/[206][154])":print"[129]-->[158]";
  76. 2005 print"               [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:gosub30
  77. 2010 ifi$="[217]"ori$="[217][197][211]"thenmk=1:goto100
  78. 2015 ifi$<>"[206]"andi$<>"[206][207]"thenprint"[145][145]";:goto2000
  79. 2020 pokev+21,.
  80. 2030 print"[147][194]ye now. [200]ave a lousy day."
  81. 2040 open15,dq,15,"r0:connect=connect":input#15,er:close15:ifer<>63thenend
  82. 2050 load"connect",dq
  83. 3000 print"[204]ook at what? (...must think [201]'m a":print"mindreader...)
  84. 3010 [129]a[178]1[164]4000:[130]:[137]200
  85. 3020 [153]"right$'m a computer, right$closedon't have eyes, ya   know ...":[129]a[178]1[164]4000:[130]
  86. 3030 [137]200
  87. 6000 [139](mk[179]4)[175](g$(1)[178]"chr$")[175](a$[178]"val")[175](a[178]2)[167]a$[178]k$(mk):mk[178]mk[170]1:[142]
  88. 6010 [142]
  89. 59999 [128]
  90. 60000 d[178][194](186):[159]1,d,15,"i0":n$[178]"fools gold"
  91. 60001 [152]1,"s0:"[170]n$:[160]1:[148]n$,d:[128]
  92.